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-- file PasslT.Mesa 

-- last modified by Satterthwaite, June 22, 1978 11:01 AM 

DIRECTORY 

ComData: FROM "comdata" 
USING [ 

def initionsOnly, 

idANY, idBOOLEAN, idCARDINAL, idCHARACTER. idlNTEGER, idLOCK, 

idREAL, idSTRING], 
LALRDefs: FROM "lalrdefs" 

USING [ActionEntry, Productionlnfo, Symbol, tokenID], 
PlDefs: FROM "pldefs" USING [InputLoc, Lockld], 
SymDefs: FROM "symdefs" USING [HTNull], 
TreeDefs: FROM "treedefs" USING [ 

NodeName, TreeLink, TreeMap, 

empty, nullid, 

freetree, listlength, maketree, mlextract, mlinsert, mlpop, mlpush, 

pushhashtree, pushlist, pushlittree, pushproperl ist, pushsymtree, 

pushtree, pushstringlittree, setattr, setinfo, testtree, updatelist]; 

PasslT: PROGRAM 
IMPORTS 

PlDefs, TreeDefs, 
dataPtr; ComData 
EXPORTS PlDefs SHARES LALRDefs " 
BEGIN -- parse tree building 
OPEN TreeDefs; 

-- local data base (supplied by parser) 

v: DESCRIPTOR FOR ARRAY OF UNSPECIFIED; 
1: DESCRIPTOR FOR ARRAY OF CARDINAL; 

q: DESCRIPTOR FOR ARRAY OF LALRDefs .ActionEntry ; 

prodData: DESCRIPTOR FOR ARRAY OF LALRDefs .Productionlnfo; 

-- initialization/termination 

AssignDescriptors: PUBLIC PROCEDURE [ 

qd: DESCRIPTOR FOR ARRAY OF LALRDefs .ActionEntry . 

vd: DESCRIPTOR FOR ARRAY OF UNSPECIFIED, 

Id: DESCRIPTOR FOR ARRAY OF CARDINAL, 

pd: DESCRIPTOR FOR ARRAY OF LALRDefs . Productionlnfo] - 

BEGIN 

q ^ qd; 

V 4- vd; 1 ^ Id; 

prodData <- pd; 

RETURN 

END; 

-- the interpretation rules 

LinkToSource: PROCEDURE [index: CARDINAL] » 
BEGIN 

setinfo[l[ index]]; RETURN 
END; 

access: BOOLEAN; 

private: BOOLEAN = FALSE; 

public: BOOLEAN « TRUE; 
-- initialization 

init: BOOLEAN == FALSE; 

equate: BOOLEAN « TRUE; 
-- machine dependent segments 

machineDep: BOOLEAN; 

ProcessQueue: PUBLIC PROCEDURE [ql, top: CARDINAL] - 
BEGIN 

i: CARDINAL; 
newV: UNSPECIFIED; 
svl, sv2: TreeLink; 
FOR i IN [0..ql) 
DO 
top <- top'-q[i] . rtag.plength+l; newV ♦- v[top]; 
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SELECT prodData[q[i]. transition], rule FROM 

-> -- (no action) 
NULL; 



-- basic tree building 
1 -> -- Ihs 

-- typeexp 
-- range 
pushhashtree[v[top]]; 
Z ■> -- primary 

pushlittree[v[top]]; 

3 ■> -- pointerpref ix 

-- begin 

-- do 

-- statement 
BEGIN 

mlpush[empty]; newV <- 1 
END; 

4 »> -- directory 

-- definitions 

-- imports 

-- exports 

-- shares 

-- indextype 

-- arglist 

-- returnlist 

-- elsepart 

— otherpart 

-- statement! ist 

-- enables 

-- forclause 

-- dotest 

-- optargs 

-- optexp 
BEGIN 

mlpush[empty]; newV 
END; 

5 «> -- 



id 
id 
id 

num 

POINTER 
BEGIN 
DO 
NULL 



declist 
-- catchitem 
newV ♦- 0; 

6 => — includelist 

-- modulelist 
-- pairlist 

— variantlist 
-- bindlist 

-- statement! ist ' 
-- casestmtlist 
-- caselabel 
-- exitlist 
-- catchhead 
-- Ihslist 
-- orderlist 
-- keylist 

— caseexplist 
newV <- 1; 

7 => -" includelist 

-- modulelist 
-- declist 
-- pairlist 
-- variantlist 
-- bindlist 
-- statement! ist ' 
-- casestmtlist 
~- caselabel 
-- exitlist 
-- catchhead 
-- Ihslist 
-- orderlist 
-- keylist 
-- caseexplist 
newV <- v[top]+l; 

8 »> -- idlist 

-- identlist 

-- statementlist 

-- explist 



![top] ^ PlDefs.InputLoc[]; 



:» ANY =»> statement 

includeitem 

moduleitem 

pairitem 

variantitem , 

binditem 

statement ; 

casestmtitem ; 

casetest 

exititem 

catchcase ; 

Ihs 

expitem 

keyitem 

caseexpitem , 



include! is 
module! ist 
declist de 
pairlist , 
variant! is 
bindlist , 
statement! 
casestmt! i 
caselabel 
exitlist ; 
catchhead 
Ihslist , 
order! ist 
key! ist 
caseexplis 



t , includeitem 

moduleitem 
claration ; 

pairitem 
t variantitem , 

binditem 
ist' statement 
st casestmtitem 
, casetest 

exititem 

catchcase ; 
Ihs 

, expitem 
keyitem 
t caseexpitem , 



idlist' 
identl ist' 
statement! ist* 
order! ist 
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-- explist 
push1ist[v[top]]; 
9 ■> -- directory 
-- imports 
— fieldlist 
-- fieldlist 
-- exits 
-- exits 
push! ist[v[top+l]]; 

66 »> -- array 

-- initialization 

-- casehead 
newV 4- FALSE; 
85 ■> -- monitored 

-- ordered 

-- base 

-- enables 
BEGIN 

newV ^ FALSE; 
END; 

67 «> -- ordered 

-- base 
-- array 

-- initialization 
-- casehead 
newV ^ TRUE; 



■ keylist 

« DIRECTORY includelist 
» IMPORTS modulelist 

■ [ pairlist ] 
" [ typelist ] 

■ EXITS exitlist 

- EXITS exitlist ; 

- ARRAY 

» <r initvalue 

- SELECT exp FROM 



l[top] <- PlDefs.InputLoc[]; 



= ORDERED 

- BASE 

« PACKED ARRAY 

« = initvalue 

= WITH binditem SELECT optexp FROM 



:= directory definitions module 



-- declaration processing 

10 => "•- unit : 
BEGIN 

pushtree[unit»3]; LinkToSource[top] ; 
END; 

11 «> -- includeitem ::= id : FROM string 
BEGIN 

ml push [empty]; pushstringl ittree[v[top+3]]; pushhashtree[v[top]] ; 
pushtree[diritem,-33; LinkToSource[top]; 
END; 
222 «> -- includeitem ::« id : FROM string USING [ idlist ] 
BEGIN 

pushstringl ittree[v[top+3]] ; pushhashtree[v[top]] ; 
pushtree[diritem,-3]; LinkToSource[top]; 
END; 

12 ■> -- module ::= id : classhead « attributes block 

-- module ::= id : defhead = attributes defbody 
BEGIN 

IF -vCtop+S] THEN mlinsert[empty, 2]; 
mlpush[empty]; 

pushtree[body,4]; setattr[l. FALSE] ; setattr[l , FALSE] ; 
mlpush[mlextract[3]]; pushhashtree[v[top]]; 
pushtree[decl item, -3] ; 

LinkToSource[top]; setattr[l .equate] ; setattr[2,publ ic]; 
pushtree[module,5]; LinkToSource[top]; 
END; 

13 »> -- classhead ::- PROGRAM arguments interface 
BEGIN 

dataPtr.def initionsOnly <- FALSE; access <- private; 
ml push[ml extract [5]]; mlpush[mlextract[5]]; 
push tree [ prog ramTC, 2]; 
mlpush[empty]; machineDep ♦- FALSE; 
END; 
201 «> -- classhead ::= MONITOR arguments locks interface 
BEGIN 

dataPtr. def initionsOnly <- FALSE; access ♦- private; 
svl ^ mlextract[4] ; 

mlpush[mlextract[5]]; ml push [ml ex tract [5]]; 
pushtree[programTC»2]; 
mlpush[svl]; machineDep <- FALSE; 
END; 

14 »> -- defhead ::« DEFINITIONS shares 
BEGIN 

dataPtr. def initionsOnly <- TRUE; access ^ public; svl ♦- mlpop[]; 
mlpush[empty]; mlpush[empty] ; mlpush[svl]; 
pushtree[definitionTC,0]; ml pus h[ empty]; 
machineDep <- FALSE; 
END; 
21 "> -- defbody ::« begin declist END 
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BEGIN 

push! ist[v[top+l]]; m1push[empty]; newV <- TRUE; 

END; 

202 »> -- locks : :■ 
BEGIN 
pushhashtr8e[PlDefs.LockId[]]; 

mlpush[empty]; pushtree[lambda, -2] ; setattr[l,TRUE]; 
END; 

203 "> -- locks ::» LOCKS primary 
BEGIN 

m1push[empty]; pushtree[1 ambda,-2] ; setattr[l , FALSE] ; 
END; 

204 "> -- locks ::■ LOCKS primary USING id : typeexp 
BEGIN 

pushhashtree[v[top+3]3; ml insert[empty,3]; 
pushtree[d8Cl item, -3] ; LinkToSource[top+3]; 
se tat tr[l, FALSE]; setattr[2,private] ; 
pushtree[lambda.-2]; setattr[l .FALSE]; 
END; 

15 => -- moduleitem ::■ id 
BEGIN 

pushhashtree[v[top]]; pushhashtree[v[top]]; 
pushtree[item,2]; setattr[l, FALSE]; LinkToSource[top]; 
END; 

16 => -- moduleitem ::« id : id 
BEGIN 

pushhashtree[v[top]]; push hash t ree[ v[ top+2] ] ; 
pushtree[item,2]; setattr[l,TRUE] ; LinkToSource[top] ; 
END; 

22 => -- declaration ::= identlist attributes entry typeexp initialization 
BEGIN 

IF v[top+2] # NodeName[none] THEN pushtree[v[top+2].l] ; 

pushtree[declitem,3]; LinkToSource[top]; 

setattr[l , v[top+4]]; setattr[ 2, access]; 

access <- v[top+l]; 

END; 

23 => -- declaration ::» identlist attributes TYPE = attributes typeexp 
BEGIN 

access <- v[top+4]; 

svl ♦- mlpop[]; pushtree[modeTC,0]; mlpush[svl]; 

pushtree[decl item, 3]; LinkToSource[top]; 

setattr[l .equate]; setatt r[ 2. access ] ; 

access <- v[top+l]; 

END; 

24 => -- attributes : :■ 
newV ♦- access; 

25 => -- attributes : : « PUBLIC 
BEGIN 

newV <r access; access ^ public; 
END; 

26 => -- attributes ::= PRIVATE 
BEGIN 

newV <- access; access ^ private; 
END; 

223 «> -- entry : :- 
BEGIN 

newV <- NodeName[none]; l[top] ^ PlDef s. InputLoc[]; 
END; 

224 => ~- entry : :« ENTRY 
newV <- NodeName[entry] ; 

225 »> ~~ entry ::« INTERNAL 
newV *- NodeName[internal] ; 



27 «> -- idlisf 


. . B 


id 


-- identlist' 


: :« 


id : 


BEGIN 






pushhashtree[v[top]]; 






newV <- -1; 






END; 






28 »> -- idlisf 


: :- 


id , idlisf 


--- identlist* 


: :■ 


id . identlisf 


BEGIN 






pushhashtree[v[top]]; 






newV *r v[top+2]-l; 






END; 






29 -> -- typeid 


: :- 


INTEGER 



pushsymtree[dataPtr . idlNTEGER]; 
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30 -> -- typeid ::■ CARDINAL 
pushsymtree[dataPtr.idCARDINAL]; 

31 ■> -- typeid ::- CHARACTER 
pushsymtree[dataPtr.idCHARACTER]; 

32 »> -- typeid ::- BOOLEAN 
pushsymtree[dataPtr.idBOOLEAN]; 

217 -> -- typeid ::■ REAL 
pushsymtree[dataPtr.idREAL]; 

33 ■> -- typeid ::■ STRING 
pushsymtree[dataPtr.idSTRING]; 

34 ■> -- typeid ::« id . id 
BEGIN 

pushhashtree[v[top]]; pushhashtree[v[top+2]] ; 

pushtree[dot,2]; 

END; 

35 => -- typeid ::« id id 
BEGIN 

pushhashtree[v[top+l]]; pushhashtree[v[top]] ; 

pushtree[discrimTC,2]; 

END; 

36 »> — typeid ::» id typeid 
BEGIN 

pushhashtree[v[top]]; pushtree[discrimTC.2]; 
END; 

37 «> -- typecons ::» interval 
BEGIN 

pus hsymtree[dataPtr. id INTEGER]; pushtree[subrangeTC,-2]; 
END; 

38 => -- typecons ::« id interval 

-- range ::» id interval 
BEGIN 

pushhashtree[v[top3] ; pushtree[subrangeTC,-2]; 
END; 

39 «> -- typecons ::» typeid interval 

-- range ::» typeid interval 
pushtree[subrangeTC,2]; 

40 -> -- typecons ::« { idlist } 
BEGIN 

pushtree[enumeratedTC,l]; setattr[l .access]; 
END; 

41 «> -- typecons ::= monitored dependent RECORD reclist 
BEGIN 

IF >>'V[top] 

THEN pushtree[recordTC,l] 
ELSE 

BEGIN 

svl ^ mlpop[]; v[top+2] <- 1 istlength[svl]; 

svl <r update! ist[svl, Detachltem]; svl <- f reetree[svl]; 

pushlist[v[top+2]+l]; pushtree[monitoredTC»l]; 

END; 
setattr[l .machineDep]; setattr[2, v[top+3]]; 
machineDep *- v[top+l]; 
END; 

42 => -- typecons ::= ordered base pointertype 
BEGIN 

sv2 ♦- maketree[pointerTC,l] ; 

svl ^ mlpop[]; 

mlpush[sv2]; setattr[l, v[top]] ; setattr[2 , v[top+l]]; 

IF svl ^ empty 

THEN BEGIN mlpush[svl]; pushtree[subrangeTC,2] END; 
END; 

43 «> -- typecons ::« array indextype OF typeexp 
BEGIN 

pushtree[arrayTC,2]; setattr[l,v[top]]; 
END; 

44 «> -- typecons ::« DESCRIPTOR FOR typeexp 
pushtree[arraydescTC, 1]; 

45 => -- typecons ::■ transfermode arguments 
pushtree[v[top],2]; 

212 ■> -- typecons ::■ id RELATIVE typeexp 
BEGIN 

pushhashtree[v[top]]; pushtree[relativeTC,-2]; 
END; 

213 => -- typecons ::« typeid RELATIVE typeexp 
pushtree[relativeTC,2]; 

46 «> -- typecons ::- LONG typeexp 
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pushtree[1ongTC,l]; 

47 ■> -- typecons ::- FRAME [ id ] 
BEGIN 

pushhashtree[v[top+2]]; pushtree[frameTC,l]; 
END; 
205 ■> -- monitored ::■ MONITORED 
BEGIN 

pushhashtree[PlDefs.LockId[]]; pushsymtree[dataPtr. idLOCK]; 
m1push[empty]; 

pushtree[declitein,3]; LinkToSource[top]; 
setattr[l, FALSE]; set attr[ 2, access] ; 
newV <- TRUE; 
END; 

48 ■> -- dependent : :■ 
newV ♦- machineDep; 

49 ■> -- dependent ::■ MACHINE DEPENDENT 
BEGIN 

newV <- machineDep; machineDep <- TRUE; 
END; 

50 »> -- reclist ::« [ pairlist ] 

-- reclist ::» [ typelist ] 
BEGIN 

push1ist[v[top+l]]; newV ♦- FALSE; 
END; 

51 «> -- reclist ::» [ pairlist , variantpair ] 
BEGIN 

pushlist[v[top+l] + l]; newV <- TRUE; 
END; 

52 "> -- reclist ::= [ variantpair ] 
newV ^ TRUE; 

53 => -- reclist ::« [ variantpart ] 
BEGIN 

AnonField[mlpop[], top]; newV *- TRUE; 
END; 

54 »> -- pairitem ::= identlist attributes typeexp 

-- variantpair ::= identlist attributes variantpart 
BEGIN 

mlpush[empty]; 

pushtree[decl item, 3] ; LinkToSource[top]; 
setattr[l, FALSE]; se t at tr[2 .access]; 
access <- v[top+l]; 
END; 

55 ■> -- typelist ::= typecons 

-- typelist : := typeid 
BEGIN 

AnonField[mlpop[], top]; 
newV ♦- -1; 
END; 

56 => -- typelist ::« id 
BEGIN 

pushhashtree[v[top]]; AnonField[mlpop[], top] ; 

newV ♦- -1; 

END; 

57 «> -- typelist ::= typecons , typelist 

-- typelist ::= typeid , typelist 
BEGIN 

AnonField[mlextract[-(v[top+2]-l)],top]; 
newV ^ v[top+2]-l; 
END; 

58 «> -- typelist ::« id , typelist 
BEGIN 

pushhashtree[v[top]]; Anon Field[mlpop[], top] ; 

newV <- v[top+2]-l; 

END; 

59 «> -- variantpart ::« SELECT vcasehead FROM variantlist ENDCASE 
BEGIN 

pushl ist[v[top+3]] ; pushtree[unionTC, 2]; setattr[l , v[top+l]]; 
END; 

60 »> -- vcasehead ::» id : attributes tagtype 
BEGIN 

pushhashtree[v[top]] ; ml insert[empty ,3]; 
pushtreetdeclitem, -3] ; LinkToSource[top]; 
se tat tr[l, FALSE]; setattr[2 .access]; 
access ♦- v[top+2]; newV <- FALSE; 
END; 

61 •»> -- vcasehead ::« COMPUTED tagtype 



PasslT.mesa 2-Sep-78 12:59:59 Page 



BEGIN 

AnonFie1d[m1pop[], top]; newV <- FALSE; 

END; 

62 "> -- vcasehead ::■ OVERLAID tagtype 
BEGIN 

AnonFielcl[m1pop[],top]; newV ♦- TRUE; 
END; 

63 "> -- tagtype : :■ * 
push tree[ imp! icitTC.O]; 

64 »> -- variantitem ::■ idlist °> subreclist 
BEGIN 

svl ♦- maketree[variantTC,l] ; 
pushtree[modeTC,0]; mlpush[svl]; 
setattr[l,machineDep]; setattr[2 ,v[top+2]]; 
push tree [dec! item, 3] ; LinkToSource[top]; 
setattr[l,TRUE]; s etattr[ 2, access] ; 
END; 

65 -> -- subreclist : :■ NULL 
BEGIN 

mlpush[empty]; newV ^ FALSE; 
END; 

68 «> -- pointertype ::« pointerpref ix 
pushsymtree[dataPtr. idANY]; 

69 => -- transfertype ::■ PROCEDURE 
newV ^ NodeName[procTC]; 

70 «> -- transfertype ::■ PORT 
newV <- NodeName[portTC]; 

71 => -- transfertype ::» SIGNAL 
newV ^ NodeName[signalTC]; 

72 «> -- transfertype ::« ERROR 
newV ♦- NodeNarne[errorTC] ; 

73 «> -- transfertype ::■ PROCESS 
newV <r NodeName[processTC]; 

74 => -- transfertype ::- PROGRAM 
newV <- NodeName[programTC]; 

75 «> -- initialization ::■ 
BEGIN 

mpush[empty]; newV ♦- FALSE; 
END; 

76 «> -- initvalue ::■ procaccess block 
BEGIN 

IF -vCtop+l] THEN mlinsert[enipty»2]; 

nilpush[empty]; 

pushtree[body,4]; setattr[ 1, FALSE] ; setattr[2,FALSE]; 

access *- v[top]; 

END; 

77 => -- initvalue ::» CODE 
push tree[ signal init.O]; 

78 => -- initvalue ::= MACHINE CODE BEGIN codelist END 
BEGIN 

pushproperl ist[v[top+3]]; pushtree[inline,l]; 
END; 

214 «> -- codelist ::« orderlist 
BEGIN 

push! ist[v[top]]; newV ^ 1; 
END; 

215 «> -- codelist ::» codelist ; orderlist 
BEGIN 

pushl ist[v[top+2]]; newV <- v[top]+l; 
END; 

79 => -- procaccess ::■ 
BEGIN 

newV <- access; access ♦■ private; 
END; 

80 -> -- statement ::■ Ihs 
BEGIN 

svl ♦- mlpop[]; mlpush[svl]; 
IF ~testtree[svl, apply] 

THEN BEGIN mlpush[empty] ; pushtree[apply ,2] END; 
LinkToSource[top]; 
END; 

81 "> -- statement ::» Ihs ♦- exp 
BEGIN 

push tree [assign, 2] ; LinkToSource[top]; 
END; 
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82 ■> -- statement ::■ [ explist ] ♦- exp 
BEGIN 

pushtree[extract,2]; LinkToSource[top]; 
END; 

83 ■> -- statement ::« block 
BEGIN 

IF v[top] THEN BEGIN pushtree[block, 2] ; LinkToSourceCtop] END; 
svl i- m1extract[2]; 
IF svl # empty 
THEN 

BEGIN 

mlpush[svl]; pushtree[openstmt, -2]; LinkToSource[top]; ' 

END; 
END; 

84 ■> -- statement ::« IF exp THEN statement elsepart 
BEGIN 

pushtree[ifstmt,3]; LinkToSource[top]; 
END; 

86 «> -- statement ::« casehead casestmtlist ENDCASE otherpart 
BEGIN 

svl *- m1pop[]; pushproperl ist[v[top+l]]; mlpush[svl]; 
IF v[top] 

THEN pushtree[bindstmt,4] 

ELSE pushtree[casestmt,3]; 
LinkToSource[top]; 
END; 

87 »> -- statement ::» forclause dotest do enables statement! ist doexit ENDLOOP 
BEGIN 

IF v[top+33 
THEN 

BEGIN 

svl ♦- mlpop[]; sv2 ^ mlpop[]; 

pushtree[enable,2]; LinkToSource[top+3]; 

mlpush[sv2]; mlpush[svl]; 

END; 
pushtree[dostmt,6] ; LinkToSource[top] ; 
END; 

90 »> -- statement ::« EXIT 
BEGIN 

pushtree[exit,0]; LinkToSource[top]; 
END; 
216 •»> -- statement ::« LOOP 
BEGIN 

pushtree[1oop,0]; LinkToSource[top] ; 
END; 

91 => -- statement ::« GOTO id 
BEGIN 

pu s h hash t ree[v[ top +1]]; push tree [go to, 1]; 

LinkToSource[top]; 

END; 

92 «> -- statement ::= GO TO id 
BEGIN 

pushhashtree[v[top+2]]; pushtree[goto,l] ; 

LinkToSource[top]; 

END; 

93 »> -- statement ::» RETURN optargs 
BEGIN 

pushtree[return,l]; LinkTQSource[top]; 
END; 

94 «> -- statement ::« transfer Ihs 
BEGIN 

pushtree[v[top] » 1]; LinkToSource[top] ; 
END; 
207 «> -- statement ::= WAIT Ihs 
BEGIN 

pushtree[wait,l]; LinkToSource[top] ; 
END; 

95 «> -- statement ::- ERROR 
BEGIN 

pushtree[syserror,0]; LinkToSource[top]; 
END; 

96 »> -- statement ::- STOP 
BEGIN 

mlpush[empty]; pushtree[s top, 1]; LinkToSource[top]; 
END; 

97 •> -~ statement ::» STOP [ I catch! ist ] 
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BEGIN 

svl <r mlpop[]; 

pushlist[v[top+3]]; ml push [svl]; pushtree[catchphras8,2]; 

push tree[s top, 1]; LinkToSource[top]; 

END; 

98 ■> -- statement ::- NULL 
BEGIN 

push tree[ null stmt, 0]; LinkToSource[top]; 
END; 

99 ■> -- statement ::■ RESUME optargs 
BEGIN 

pu shtree[ resume, 1] ; LinkToSource[top]; 
END; 

100 ■> -- statement ::- CONTINUE 
BEGIN 

pushtree[continue,0]; LinkToSource[top]; 
END; 

101 ■> -- statement ::■ RETRY 
BEGIN 

pushtree[retry,0]; LinkToSource[top]; 
END; 

102 ■> -- statement ::» Ihs ♦- STATE 
BEGIN 

pushtree[dst,l]; LinkToSource[top]; 
END; 
89 "> -- block ::» blockhead exits END 
BEGIN 
IF vCtop] 
THEN 

BEGIN 

svl ♦- mlpop[]; pushtree[block,2]; LinkToSource[top]; 

mlpush[svl]; newV <- FALSE; 

END; 
pushtree[label ,2]; LinkToSource[top]; 
END; 

17 => — blockhead ::» begin enables declist statementl ist 
BEGIN 

IF v[top+2] » 
THEN newV ♦- FALSE 
ELSE 
BEGIN 

svl *- mlpop[]; pushlist[v[top+2]]; mlpush[svl]; newV <- TRUE; 
END; 
IF v[top+l] 
THEN 
BEGIN 
IF newV 

THEN BEGIN pushtree[block . 2] ; LinkToSource[top+2] END; 
pushtree[enable,2]; LinkToSource[top+l]; newV <- FALSE; 
END; 
END; 

18 => -- begin ::« BEGIN OPEN bindlist ; 

-- do ::= DO OPEN bindlist ; 

pushlist[v[top+2]]; 

19 "> -- binditem ::« exp 
BEGIN 

mlpush[nul 1 id] ; pushtree[i tem,--2] ; LinkToSource[top]; 
END; 

20 ■> -- binditem ::« id : exp 
BEGIN 

pushhashtree[v[top]]; pushtree[item,-2]; 

LinkToSource[top]; 

END; 



« caselabel => statement 

« caselabel «> exp 

« Ihslist »> statement 



105 *> -- casestmtitem 

-- caseexpitem 

-- catchcase 
BEGIN 

svl ♦- mlpop[]; 

pushl ist[v[top]]; mlpush[svl]; 
pushtree[item,2]; LinkToSource[top] ; 
END; 

106 ■> -- casetest ::- optrelation 
BEGIN 

ml push[ empty] ; pushtree[v[top], -2]; 
END; 

107 ■> -- casetest ::- exp 
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BEGIN 

mlpush[empty]; pushtr8e[relE,-2]; 

END; 

108 "> -- forclause ::» FOR id ♦- exp , exp 
BEGIN 

svl ♦- mlpop[]; sv2 ^ mlpop[]; 

pushhashtree[v[top+l]]; m1push[sv2]; m1push[svl]; 
pushtree[forseq,3]; 
END; 

109 «> -- forclause ::■ FOR id direction IN range 
BEGIN 

pushhashtree[v[top+i]]; pushtree[v[top+2],~2]; 
END; 

110 "> -- forclause ::■ THROUGH range 
BEGIN 

ml push [empty]; pushtree[upthru,-2]; 
END; 

111 ■> -- direction : :■ 

-- direction ::» INCREASING 
newV <r NodeName[upthru]; 

112 »> -- direction ::« DECREASING 
newV <- NodeName[downthru]; 

113 «> -- dotest ::■ UNTIL exp 
pushtree[not,l]; 

114 a> -- doexit : :- 
BEGIN 

mlpush[empty]; mlpush[empty]; 
END; 

115 «=> -- doexit ::« REPEAT exitlist 

-- doexit ::= REPEAT exitlist ; 
BEGIN 

pushl ist[v[top+l]]; ml push [empty]; 
END; 

116 => ~- doexit ::« REPEAT exitlist ; FINISHED => statement 

-- doexit ::= REPEAT exitlist ; FINISHED «> statement ; 
BEGIN 

svl <- mlpop[]; pushl ist[v[top+l]] ; mlpush[svl]; 
END; 

117 «> -- doexit ::» REPEAT FINISHED «> statement 

-- doexit ::« REPEAT FINISHED «> statement ; 
ml insert[empty,2]; 

118 => -- exititem ::« idlist ■> statement 
BEGIN 

pushtree[item,2]; LinkToSource[top] ; 
END; 

119 «> -- enables ::« ENABLE catchitem ; 
BEGIN 

svl <- mlpop[]; 

pushl ist[v[top+l]]; mlpush[svl]; pushtree[catchphrase»2]; 

newV *- TRUE; 

END; 

120 => -- enables ::» ENABLE BEGIN catchlist END ; 
BEGIN 

svl ♦- mlpop[]; 

pushl ist[v[top+2]] ; mlpush[svl]; pushtree[catchphrase, 2]; 

newV <r TRUE; 

END; 

121 => -- enables ::= ENABLE BEGIN catchhead END ; 
BEGIN 

pushl ist[v[top+2]]; mlpush[empty]; pushtree[catchphrase,2]; 

newV <- TRUE; 

END; 

122 «> -- catchlist ::■ catchhead catchitem 
newV ♦- v[top] + v[top+l]; 

123 => -- catchitem ::» catchcase 
BEGIN 

mlpush[empty]; newV ♦- 1; 
END; 

124 «> -- statementl ist ::- statementl ist' statement 
pushl ist[v[top]+l]; 



125 »> -- transfer : 


:■ SIGNAL 


-- transferop 


:« SIGNAL 


newV ♦- NodeName[signal]; 




126 »> -- transfer : 


:- ERROR 


-~ transferop : 


:- ERROR 


newV ^ NodeName[0rror]; 
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218 ■> -- transfer : :« 
newV ^ NodeName[xerror]; 

127 ■> -- transfer : :■ 

-- transferop : :■ 
newV *- NodeName[start]; 

128 ■> -- transfer : :■ 
newV <- NodeName[restart]; 

208 "> -- transfer : :» 

-- transferop : :« 
newV ♦- NodeName[join]; 

209 ■> -- transfer : :■ 
newV <- NodeName[notify]; 

210 »> -- transfer : :« 
newV ^ NodeName[broadcast]; 

129 «■> -- transfer : :■ 
newV ♦- NodeName[lst]; 

130 -> -- transfer : :■ 
newV ♦- NodeName[lstf ]; 



RETURN WITH ERROR 

START 
START 

RESTART 

JOIN 
JOIN 

NOTIFY 

BROADCAST 

TRANSFER WITH 

RETURN WITH 



-- expression processing 

140 ■> -- keyitem 
BEGIN 

pushhashtree[v[top]]; 
END; 

141 ■> -- exp 

-- primary 
pushtree[v[top].l]; 

142 «> -- sum 

-- product 
pushtree[v[top+l3,2]; 

143 "> -- exp 
pushtree[ifexp,3]; 

144 B> -- exp 
BEGIN 

svl <r mlpop[]i 

pushproperl ist[v[top+l 

IF v[top] 

THEN pushtree[bindex 
ELSE pushtree[caseex 

LinkToSource[top]; 

END; 

145 «> -- exp 
pushtree[assignx,2]; 

146 => -- transferop 
newV <r NodeName[new]; 

211 »> -- transferop 
newV ^ NodeName[fork]; 

147 => -- disjunct 
pushtree[or ,2]; 

148 «> -- conjunct 
pushtree[and,2]; 

149 => -- negation 
pushtree[not, 1] ; 

150 «> -- relation 
pushtree[v[top+l],2]; 

151 => -- optrelation 
newV <- NodeName[SELECT 

relE => relN, 
reIN "> relE, 
relL «> relGE, 
relLE »> relG. 
relG »> relLE. 
relGE «> relL. 
in «> notin, 
notin «> in, 
ENDCASE «> v[top+l]] 

152 -> -- relop 

newV ^ NodeName[relE] 

153 -> -- relop 

newV ♦- NodeName[relN] 

154 "> -- relop 

newV <- NodeName[re1L] 

155 -> "" relop 

newV ^ NodeName[relLE] 

156 => — relop 

newV <- NodeName[relG]; 



::•» id : optexp 

pushtree[item,-2]; 

: :« transferop Ihs 

: :» typeop [ typeexp ] 

: := sum addop product 
::» product multop factor 

::» IF exp THEN exp ELSE exp 

::« casehead caseexplist ENDCASE »> exp 

]]; mlpush[svl]; 

P. 4] 
P. 3]; 



« Ihs ♦- exp 

« NEW 

« FORK 

= disjunct OR conjunct 

» conjunct AND negation 

« not relation 

= sum optrelation 



not relationtail 
NodeName[v[top+l]] FROM 
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157 ■> -- relop : :■ >■ 
newV <- Nod8Nani8[re1GE]; 

158 "> -- relationtail ::■ IN range 
newV +- NodeName[in]; 

159 ■> -- interval ::■ [ bounds ] 
pushtree[intCC,2]; 

160 "> -- interval ::■ [ bounds ) 
pushtree[intC0.2]; 

161 -> -- interval ::■ ( bounds ] 
pushtree[intOC,2]; 

162 "> -- interval ::■ ( bounds ) 
pushtree[int00.2]; 

163 ■> -- addop : :■ + 
newV ^ NodeNanie[plus]; 

164 ■> -- addop : :■ - 
newV *- NodeNarne[minus]; 

165 "> -- multop ::■ ♦ 
newV <- NodeName[times]; 

166 "> -- multop : :■ / 
newV ♦- NodeName[div]; 

167 -> -- multop : :« MOD 
newV <- NodeName[mod]; 

168 "> -- factor ::■ - prim 
pushtree[uminus, 1] ; 

226 «> -- primary ::■ Inum 
BEGIN 

push! ittree[v[top]]; pushtree[mwconst,l]; 
END; 

169 »> -- primary ::« char 
BEGIN 

pushl ittree[v[top]]; pushtree[cl it, 1]; 
END; 

170 "> -- primary ::- string 
pushstringl ittree[v[top]]; 

219 »> -- primary ::« Istring 
BEGIN 

pushstringl ittree[v[top]] ; pushtree[llit,l]; 
END; 

171 "> -- primary ::■» [ explist ] 
BEGIN 

ml push [empty]; pushtree[apply.-2]; 
END; 

172 => -- primary ::« prefixop [ orderlist ] 
BEGIN 

pushl ist[v[top+2]] ; push tree[v[ top ] , 1]; 
END; 

220 «> -- primary ::« INTEGER [ explist ] 
BEGIN 

pushsymtree[dataPtr. id INTEGER]; pushtree[apply ,-2]; 
END; 

221 «> -- primary ::- CARDINAL [ explist ] 
BEGIN 

pushsymtree[dataPtr. idCARDINAL]; pushtree[apply,-2]; 
END; 

173 «> -- primary 
pushtree[addr,l]; 

174 »> -- primary 



» Ihs 

« DESCRIPTOR [ desclist ] 

« exp , exp 



pushtree[arraydesc,l] 

175 => -- desclist 
BEGIN 

mlpush[empty]; pushlist[3]; 
END; 

176 «> -- desclist ::* exp , exp , typeexp 
pushl ist[3]; 

177 «> -- prefixop ::= LONG 
newV <- NodeName[lengthen]; 

178 «> -- prefixop ::« ABS 
newV ^ NodeName[abs]; 

179 «> -- prefixop : :- MIN 
newV ♦- NodeName[min]; 

180 «> -- prefixop : :- MAX 
newV <- NodeName[max]; 

181 ■> -- prefixop ::- BASE 
newV ^ NodeName[base] ; 

182 «> -- prefixop ::* LENGTH 
newV *- NodeName[length]; 
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- LENGTH 

■ SIZE 

- FIRST 

■ LAST 

■ LOOPHOLE [ exp ] 



182 "> -- prefixop 
newV ♦- NodeNameClength]; 

183 ■> -- typeop 
newV ♦■ NodeNam0[size]; 

184 ■> -- typeop 
newV *■ NodeName[f irst]; 

185 ■> -- typeop 
newV ^ NodeName[1ast]; 

186 ■> -- Ihs 
BEGIN 

m1push[empty]; push tree[ loophole, 2]; 
END; 

187 -> — Ihs 
push tree[ loophole. 2]; 

188 -> — Ihs 
pushtree[v[top],l]; 

189 »> -- qualifier 
pushtree[apply.2]; 

190 -> -- qualifier 
BEGIN 
svl <- mlpopC]; 

pushlist[v[top+3]] ; mlpush[svl]; pushtree[catchphrase.2]; 

pushtree[apply.3]; 

END; 

191 "> -- qualifier ::« . id 
BEGIN 

pushhashtree[v[top+l]]; pushtree[dot.2]; 
END; 

192 »> -- qualifier 
pushtree[uparrow,l]; 

193 => -- memory 



■ LOOPHOLE [ exp , typeexp ] 

■ memory [ exp ] 

■ [ explist ] 

■ [ explist I catchlist ] 



newV <- NodeName[memory]; 
194 => -- memory : 
newV <- NodeName[register]; 

-- error or unimplemented 
ENDCASE -> ERROR; 

v[top] <- newV; 

ENDLOOP; 
RETURN 
END; 

Detachltem: TreeMap « 
BEGIN 

mlpush[t]; RETURN [empty] 
END; 



t 

MEMORY 

REGISTER 



-- shared processing routines 

AnonField: PROCEDURE [type: TreeLink, top: CARDINAL] 
BEGIN 

mlpush[null id] ; mlpush[type]; mlpush[empty] ; 
pushtree[declitem,3]; LinkToSource[top]; 
setattr[l .FALSE]; setattr[ 2, access] ; 
RETURN 
END; 



-- error recovery 

TokenValue: PUBLIC PROCEDURE [s: LALRDefs .Symbol ] RETURNS [UNSPECIFIED] 
BEGIN 

OPEN LALRDefs; 
RETURN [SELECT s FROM 

tokenID «> SymDef s .HTNull . 

ENDCASE -> 0] 
END; 



END. 



